home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Symbol Processors / Library / retrieve and store-item
Encoding:
Text File  |  1996-12-30  |  4.3 KB  |  82 lines  |  [TEXT/ScoM]
  1. retrieving kick pattern seq11
  2.  
  3.    (retrieve 'industrial-rhythms :pattern 'seq11 :beat 'snare)
  4.  
  5. retrieving a random kick pattern all patterns retrieving kick pattern randomly chosen pattern this enables to use all beats of a random pattern
  6.  
  7.    (retrieve 'industrial-rhythms :pattern 0.123 :beat 'kick)
  8.    (retrieve 'industrial-rhythms :pattern 0.123 :beat 'snare)
  9.    (retrieve 'industrial-rhythms :pattern 0.31 :beat 0.1632) 
  10.     -  random beat also possible
  11.  
  12. retrieving a random beat pattern from all patterns
  13.  
  14.    (retrieve 'industrial-rhythms :pattern 0.3312332)
  15.  
  16. retrieving a random kick pattern patterns matching dance
  17.  
  18.    (retrieve 'industrial-rhythms :pattern 0.123 :match '(dance) :beat 'kick)
  19.    (retrieve 'industrial-rhythms :pattern 0.31223 :match '(or techno kraftwerk) :beat 'kick)
  20.  
  21. retrieving a random beat pattern patterns matching dance
  22.  
  23.    (retrieve 'industrial-rhythms :pattern 0.31223 :match '(dance))
  24.    (retrieve 'industrial-rhythms :pattern 0.31223 :match '(dance pop))
  25.    (retrieve 'industrial-rhythms :pattern 0.31223 :match '(or techno kraftwerk))
  26.  
  27. (defparameter *library-items* nil)
  28.  
  29. (store-item industrial-rhythms seq11 (dance)
  30. ;         1---!---!---!---2---!---!---!---3---!---!---!---4---!---!---!---
  31. kick     "    -       -       -       -       -       -       -       -   "
  32. snare    "    -       -     - ----- - -       -       -     - ----- - -   "
  33. hihat1   "- --- - - - - --- - - - - - - --- --- - - - - --- - - - - - - --"
  34. hihat2   "  -       -       -       -       -       -       -       -     "
  35. perc1    "                                                            -   "
  36. perc2    "                      -                               -         "
  37. perc3    "    -   -   -       -       -  --   -   -   -       -       -  -"
  38. perc4    "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - "
  39. perc5    "-      --       -      --       -      --       -      --       "
  40. perc6    "-      --       -     ---       -      --       -     ---       "
  41. perc7    "- -  --       -   -  -- - - ----- -  --       -   -  -- - - ----"
  42. )
  43.  
  44. (store-item industrial-rhythms seq14 (dance)
  45. ;         1---!---!---!---2---!---!---!---3---!---!---!---4---!---!---!---
  46. kick     "-   -   -   -   -   -   -   -  --   -   -   -   -   -   -   -  -"
  47. snare    "    -  ---- -       -  ---- - -     -  ---- -       -  ---- -   "
  48. hihat1   "- --- --- --- --- --- --- ------- --- --- --- --- --- --- ------"
  49. hihat2   "  -   -   -   -   -   -   -   -   -   -   -   -   -   -       - "
  50. perc1    "                                                          -     "
  51. beat2    "-       -       - -             -       -       - -             "
  52. perc3    "    -       -       -               -       -       -           "
  53. )
  54.  
  55. (store-item industrial-rhythms seq16 (dance kraftwerk)
  56. ;         1---!---!---!---2---!---!---!---3---!---!---!---4---!---!---!---
  57. kick     "-     -   --- - -     -   --- - -     -   --- - -     -   --- - "
  58. snare    "    -       -       -       -       -       -       -  ---- -   "
  59. hihat1   "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - "
  60. hihat2   "-     -   --- - -     -   --- - -     -   --- - -     -   --- - "
  61. perc1    "-               -               -               -               "
  62. )
  63.  
  64. (store-item industrial-rhythms seq17 (house dance)
  65. ;         1---!---!---!---2---!---!---!---3---!---!---!---4---!---!---!---
  66. kick     "   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -    "
  67. snare    "   -       -       -       -       -       -       -       -    "
  68. hihat1   "----------------------------------------------------------------"
  69. hihat2   " -   -   -   -   -   -       -   -   -   -   -   -   -   -   -  "
  70. perc1    "       --              ----            --              -- -     "
  71. perc2    "-  -- ---  --- --  -- ---  --  --  -- ---  --- --  -- ---  --   "
  72. perc3    " --  --  --  --  --  --  --  --  --  --  --  --  --  --  --  -- "
  73. perc4    "                                                   -       -    "
  74. perc5    "  -  - -       -  -  -         -  -  - -       -  -  -          "
  75. perc6    "  -               -               -               -             "
  76. perc7    "           -               -               -                 -  "
  77. perc8    "              -                               -           -     "
  78. perc9    "   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -    "
  79. perc10   "         -                               -                    - "
  80. )
  81.  
  82.